From 30f6f4e60d7873a41317e4c8da67ccd61dea0f57 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 19 Sep 2006 13:12:50 +0000 Subject: [PATCH] (line-move-partial): Optimize. Try window-line-height before posn-at-point to get vpos of current line. --- lisp/simple.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 0a257863a76..5a30471ca49 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3507,9 +3507,11 @@ Outline mode sets this." nil) ;; If cursor is not in the bottom scroll margin, move forward. ((and (> vpos 0) - (< (setq ppos (posn-at-point) - py (cdr (or (posn-actual-col-row ppos) - (posn-col-row ppos)))) + (< (setq py + (or (nth 1 (window-line-height)) + (let ((ppos (posn-at-point))) + (cdr (or (posn-actual-col-row ppos) + (posn-col-row ppos)))))) (min (- (window-text-height) scroll-margin 1) (1- vpos)))) nil) ;; When already vscrolled, we vscroll some more if we can, -- 2.30.2